home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / COLOR.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  653 b   |  37 lines
  1. 10 CLS
  2. 20 KEY OFF
  3. 30 WIDTH 80
  4. 40 SCREEN 0,1,0
  5. 50 RANDOMIZE VAL(MID$(TIME$,7,2))
  6. 60 D=D+1
  7. 70 IF D<>1920 THEN 100
  8. 80 IF INKEY$=CHR$(27) THEN 140
  9. 90 GOTO 80
  10. 100 X=INT(RND(1)*16)
  11. 110 COLOR X,0,0
  12. 120 PRINT CHR$(219);
  13. 130 GOTO 60
  14. 140 SCREEN 1,0
  15. 150 KEY OFF
  16. 160 CLS
  17. 170 Z=37
  18. 180 WHILE Z
  19. 190 C=INT(RND*4)
  20. 200 IF INKEY$=CHR$(27) THEN 330
  21. 210 FOR I=1 TO 6
  22. 220 SOUND 200+RND*1000,9
  23. 230 LINE -(RND*319,RND*199),C
  24. 240 SOUND Z,0
  25. 250 NEXT
  26. 260 Q=(Q+5+Z*RND) MOD Z
  27. 270 SOUND Z+Q,200
  28. 280 PAINT(RND*319,RND*199),INT(RND*4),C
  29. 290 SOUND Z,0
  30. 300 J=J+RND/Z
  31. 310 COLOR ,J MOD Z
  32. 320 WEND
  33. 330 SCREEN 0,0,0
  34. 340 WIDTH 80
  35. 350 COLOR 7,0,0
  36. 360 END
  37.